x<- 1400:1
y<- rep(1400, times = 1400)
z <- x/y
zz <- cumprod (z)
min(which(zz<0.5))